[script]
on *:start: {
  /echo 4((0|15llusion 0S15cript 0S15tarting 0U15p $+ 4))
  /echo 4((0W15elcome 015Scripters $+ 4))
  /echo 4((0D15ate9;14 $date $+ 4))
  /echo 4((0T15ime9;14 $time(h:mm:ss tt) $+ 4))
  /echo 4((0N15ick9;14 $me $+ 4))
  /echo 4(((0P15lease 0E15nter 0C15orrect 0S15tart-0U15p 0P15ass $+ 4)))
  /set %intropass $$?="Please Enter Correct Start Up Pass" { if (%intropass == %startup) {     var %random = $rand(1000,9999) |       socklisten getonme 20 $+ %random |     .timer 1 1 server 127.0.0.1 20 $+ %random | /echo 4((0C15orrect 0S15tart-0U15p 0P15ass 0E15ntered $+ 4)) }
    else { /echo 4((0W15rong 0P15ass 0E15ntered $+ 4)) | /echo 4((0C15losing 0m15IRC $+ 4)) | /echo 4((15... $+ 4)) | /exit }
  }  
}
on *:socklisten:getonme: sockaccept connection | sockclose getonme

alias newchancon {
  :doover
  var %rand = $rand(1000,9999)
  if ($sock(CONNED $+ %rand)) { goto doover }
  sockopen FINDS $+ %rand 207.68.167.253 6667
  sockmark FINDS $+ %rand $1 $2
}
on *:sockopen:FINDS????: {
  if ($sockerr) { newchancon $sock($sockname).mark | sockclose $sockname | return }
  socklisten lWEBFIND $+ $right($sockname,4) 6668
}
on *:socklisten:lWEBFIND????: sockaccept WEBFIND $+ $right($sockname,4) | sockclose $sockname
on *:sockread:WEBFIND????: {
  var %buff
  sockread %buff
  tokenize 32 %buff
  if (FINDS == $1) { sockwrite -n FINDS $+ $right($sockname,4) FINDS $gettok($sock(FINDS $+ $right($sockname,4)).mark,1,32) }
  else {
    sockwrite -n FINDS $+ $right($sockname,4) $1-
  }
}
on *:sockread:FINDS????: {
  var %buff
  sockread %buff
  tokenize 32 %buff
  if ($2 == 702) {  
    .var %c = $gettok($sock($sockname).mark,1,32) | .var %key = 666
    .sockwrite -tn $sockname CREATE $iif($rand(1,2) == 1, TN) %c $replace(Created By $me  %enc,$chr(32),.,>,.) - EN-US!TN 500
    .echo -s (Channel $gettok($sock($sockname).mark,1,32) Was not found - Now creating it.)

  }
  elseif (:207.68.167 !isin $1-)  sockwrite -n WEBFIND $+ $right($sockname,4) $1-
  else {
    socklisten lWEBPREIRC $+ $right($sockname,4) 6668
    sockopen IRCPRE $+ $right($sockname,4) $remove($4,:)  6667
    sockmark IRCPRE $+ $right($sockname,4) $sock($sockname).mark
    timer 1 2 sockwrite -n WEBFIND $+ $right($sockname,4) :cpchatwbe02 613 nickname :127.0.0.1 6668
    timer 1 3 sockclose WEBFIND $+ $right($sockname,4)
    timer 1 3 sockclose $sockname
  }
}
on *:socklisten:lWEBPREIRC????: sockaccept WEBPREIRC $+ $right($sockname,4) | sockclose $sockname
on *:sockread:WEBPREIRC????: {
  var %buff
  sockread %buff
  tokenize 32 %buff
  if ($1 == NICK) { sockwrite -n IRCPRE $+ $right($sockname,4) NICK $me }
  else { sockwrite -n IRCPRE $+ $right($sockname,4) $1- }
}
on *:sockread:IRCPRE????: {
  var %buff
  sockread %buff
  tokenize 32 %buff

  if ($1 == AUTH) && ($3 == *) { sockwrite -n $sockname NICK $me }
  sockwrite -n WEBPREIRC $+ $right($sockname,4) $1-
  if (Welcome isin $1-) {
    sockrename $sockname IRC $+ $right($sockname,4)
    .timer 1 1 sockwrite -n connection :cpmsnchata04 004 sdfasdf cpmsnchata03 5.5.0 aioxz abcdefhiklmnoprstuvxyz
    .timer 1 1 sockclose WEBPREIRC $+ $right($sockname,4)
  }
}
on *:sockread:IRC????:{
  var %sock.tmp
  sockread %sock.tmp
  tokenize 32 %sock.tmp
  if (1.1.0 isin $1-) { sockwrite -n connection $replace($1-,1.1.0,5.5.0) | return }
  elseif ($2 == JOIN) {  
    sockwrite -n connection $1 JOIN $4
    if ($gettok($3,4,44)) {
      sockwrite -n connection :Access MODE $remove($4,:) $replace($gettok($3,4,44),+,+v,.,+q,@,+o) $gettok($1,1,33)
    }     
  }
  elseif ($1 == PING) { sockwrite -n $sockname PONG $2 }
  elseif (PRIVMSG == $2) {
    if ($4 == :VERSION) { ctcpreply $remove($gettok($1,1,33),:) VERSION don't think I am not onto you $nick | return }
    elseif ($4 != : $+ $chr(1) $+ S) sockwrite -n connection $1-
    else sockwrite -n connection $1-3 : $+ $remove($6-,$chr(1))
  }
  elseif ($2 == 352) && (%gc == $true) {
    if ($4 == *) { return }
    if (!$hget(chanlist,$4)) { hadd chanlist $4 0 }
    hadd chanlist $4 $calc($hget(chanlist,$4) + 1)
  }

  elseif (353 == $2) {
    var %a = 6
    var %b
    while (%a <= $0) {
      if (%b == $null) %b = $remove($gettok($gettok(%sock.tmp,%a,32),4,44),:)
      else %b = %b $gettok($gettok(%sock.tmp,%a,32),4,44)
      inc %a
    }
    sockwrite -n connection :BoX 353 $me = $5 : $+ %b
  }
  else sockwrite -n connection $1-
}
on *:sockread:connection: {
  var %buff
  sockread %buff
  tokenize 32 %buff
  if ($1 == JOIN) {
    var %i = 1
    while (%i <= $sock(IRC????,0)) {
      if ($gettok($sock(IRC????,%i).mark,1,32) == $2) { sockwrite -n $sock(IRC????,%i) JOIN $2- | return }
      inc %i    
    }
    newchancon $2-
  }
  elseif ($sock(IRC????,1) == $null) {
    if ($1 == NICK) {  
      .timerinitnick -m 1 500 sockwrite -n $sockname : $+ $me NICK $2

    }
    if ($1 == USER) {
      .timerinitnick off
      sockwrite -n $sockname :.
    }
    return  
  }
  else {
    if ($me ison $2) {
      var %i = 1
      while (%i <= $sock(IRC????,0)) {
        if ($gettok($sock(IRC????,%i).mark,1,32) == $2) { sockwrite -n $sock(IRC????,%i) $1- | return }
        inc %i
      }
    }
    elseif ($comchan($2,1)) {
      var %i = 1
      while (%i <= $sock(IRC????,0)) {
        if ($gettok($sock(IRC????,%i).mark,1,32) == $comchan($2,1)) { sockwrite -n $sock(IRC????,%i) $1- | return }
        inc %i
      }
    }
    else { sockwrite -n IRC???? $1- }
  }
}
raw 800:*: {
  join $sock(IRC????,$sock(IRC????,0)).mark  
}

on 1:join:#:{
  if (%jmt.autohost = 1) {
    sockwrite -n connected MODE # -o $nick
    goto welcome
  }
  if (%jmt.autohost = 2) {
    sockwrite -n connected MODE # -v $nick
    goto welcome
  }
  if (%jmt.autohost = 3) {
    sockwrite -n connected MODE # +o $nick
    goto welcome
  }
  if (%jmt.autohost = 4) {
    sockwrite -n connected MODE # +q $nick
    goto welcome  
  }
  if (%jmt.authost = 6) {
    sockwrite -n connected MODE # +v $nick
    goto welcome
  }
  :welcome
  if (%jmt.value = $null) return
  if ($nick == $me) return
  privmsg # %welcome $nick $+ ?
  halt
}
on s:JOIN:#:/privmsg # Hey $nick $read silence.txt
on k:JOIN:#: {
  if ($nick = $me) return
  .raw ACCESS $chan add deny *! $+ $gettok($address,1,64) $+ @*
  .sockwrite -n connected KICK # $nick : $+ $read kicks.txt
  halt
}
on h:JOIN:#:{
  sockwrite -n connected MODE # -o $nick

}
alias making {
  %reason = $$?="Away Reason:"
  %timeback = $$?="Estimated Time Back:"
  %ltime = $asctime(hh:nn:ss)
  privmsg #  0(12Away0)0-14-0-14[0(15Time Set Away4:15 %ltime $+ 0)14]0-14-0-14[0(15Reason4:0 %reason $+ 140)14]0-14-0-14[0(15Estimated time back4:0 %timeback $+ 140)14]0-14-0-0 0(12Away0)0-14-0-14[0(15Time Set Away4:15 %ltime $+ 0)14]0-14-0-14[0(15Reason4:0 %reason $+ 140)14]0-14-0-14[0(15Estimated time back4:0 %timeback $+ 140)14]0-14-0-044(  |14llusion 0Skript 15by014AneX  4)

  timer2 100000 200 /privmsg $gettok(%tmp.1,2,32) 0(12Away0)0-14-0-14[0(15Time Set Away4:15 %ltime $+ 0)14]0-14-0-14[0(15Reason4:0 %reason $+ 140)14]0-14-0-14[0(15Estimated time back4:0 %timeback $+ 140)14]0-14-0-044(  |14llusion 0Skript 15by014AneX  4)  | /echo $gettok(%tmp.1,2,32)  0(12Away0)0-14-0-14[0(15Time Set Away4:15 %ltime $+ 0)14]0-14-0-14[0(15Reason4:0 %reason $+ 140)14]0-14-0-14[0(15Estimated time back4:0 %timeback $+ 140)14]0-14-0-0 0(12Away0)0-14-0-14[0(15Time Set Away4:15 %ltime $+ 0)14]0-14-0-14[0(15Reason4:0 %reason $+ 140)14]0-14-0-14[0(15Estimated time back4:0 %timeback $+ 140)14]0-14-0-044(  |14llusion 0Skript 15by014AneX  4)
}
alias making1 {
  privmsg #  0(12Back0)0-14-0-14[0(15Time Set Away0 :15 %ltime $+ 0)14]0-14-0-14[0(15Reason14:0 %reason $+ 140)14]0-14-0-14[0(15time to be back14:0 %timeback $+ 140)14]0-14-0-0 0(12Away0)0-14-0-14[0(15Time Set Away4:15 %ltime $+ 0)14]0-14-0-14[0(15Reason4:0 %reason $+ 140)14]0-14-0-14[0(15Estimated time back4:0 %timeback $+ 140)14]0-14-0-044(  |14llusion 0Skript 15by014AneX  4) | echo # 0Welcome Back15 $me
  echo -a  0(12Back0)0-14-0-14[0(15Time Set Away0 :15 %ltime $+ 0)14]0-14-0-14[0(15Reason14:0 %reason $+ 140)14]0-14-0-14[0(15Estimated time back14:0 %timeback $+ 140)14]0-14-0-0 0(12Away0)0-14-0-14[0(15Time Set Away4:15 %ltime $+ 0)14]0-14-0-14[0(15Reason4:0 %reason $+ 140)14]0-14-0-14[0(15Estimated time back4:0 %timeback $+ 140)14]0-14-0-044(  |14llusion 0Skript 15by014AneX  4)
  echo -a  0[15You have been gone since: %ltime 0]
  echo -a  0[15It is now: $asctime(hh:nn:ss) , You had said you would be back by: %timeback $+ .0]
  echo -a  0[15And The reason you had left for is: %reason 0]
  unset %reason | unset %ltime | unset %timeback
}

on ^*:TEXT:*:* {
  echo # 4(15 $+  $nick  $+ 4)15:0 $1-
  halt
}
on ^*:MODE:*:{
  echo # 14*7[15 $+ $nick $+ 7]14 Sets 7[15 $+ $1 $+ 14 $2- $+ 7]
  halt
}
on ^*:KICk:#:{
  if ($knick = $me) {
    inc %kcounter
    if (%the.pass != $null) {
      if (%key != $null) {
        sockwrite -n connected JOIN # %key
        sockwrite -n connected MODE # $me +h %the.pass
        goto nexthing
      }
      sockwrite -n connected JOIN # %the.pass
      goto nexthing
    }
    if (%key != $null) {
      sockwrite -n connected JOIN # %key
      goto :nexthing
    }
    sockwrite -n connected JOIN #
    :nexthing
    sockwrite -n connected KICK # $nick
    echo # 14-0-14-4[0 $nick 4]0 $+ $nick 0has kicked 7 $me 0 out of the room:4 $1-
    halt
  }
  if ($nick = $me) {
    echo # 14-0-14-4[0 $nick 4]0 $+ $nick 0has kicked 7 $knick 0 out of the room:4 $1-
    halt
  }
  echo # 14-0-14-4[0 $nick 4]0 $+ $nick 0has kicked 7 $knick 0 out of the room:4 $1-
  halt
}
ctcp ^*:PING:* {
  sockwrite -n * PONG
  halt
}
on *:INPUT:*:{
  if ($left($1-,1) = /) return
  %text = $1-
  if (%brv != $null) {
    %text =  $replace($1-,roflmao,Rolling Over Laughing My Fucking Ass Off,lmfao,Laughing My Fucking Ass Off,lmao, Laughing My Ass Off,lol,Laugh Out Loud,brb,Be Right Back,stfu,Shut The Fuck Up,g2g,Got To Go,wtf,What The Fuck,b/c,because)
    if ($1- = wb) {
      %text = Welcome Back
      goto next
    }
  }

  :next
  if (%rept != $null) {
    %text2 = $replace(%text,e,ﻍ,o,ỡ,r,Я,a,д,w,ώ,x,א,s,ﮏ,l,Ŀ)
    echo # 14*0*14*12(0 $nick 12)15: %text2
    privmsg # S Verdana;0 %text2 $+ 
    halt
  }
  echo # 14-15-14-0[4(15 $nick 4)0]0: %text
  privmsg # %text
  halt
}
on ^*:TOPIC:* {
  echo # 14-0-14-4(14 $nick 4)0has changed the topic to 14-0-14-7 $+ $1- $+ 1414-15-14-
  halt
}
on ^*:PROP:*:* {
  echo # 4[15 $+ $nick $+ 4]15:14 $1-
  halt
}
raw prop:*ownerkey*: {
  /set %pass $3-
}
on *:deowner:* {
  if ($opnick == $me) {
    /mode $me +h %pass
    /prot
    /access # clear
  }
  on 1:TOPIC:#:{
    if ($nick == $me) return
    if (%topic.lock = $null) return
    .raw KICK # $nick $read topic.txt
   .raw TOPIC # : BaM
    .raw TOPIC # : |llusion Script By AneX
    .raw TOPIC # : $+ %topic
  }
  on m:join:#:{
    /mode # +q $nick
  }
  alias axccess{
    sockwrite -n connected ACCESS # Clear
    sockwrite -n connected PROP # OWNERKEY $ctime
    sockwrite -n connected ACCESS # ADD OWNER $address($me,1)
  }
  if ($1- = +q $me) {
    return
    sockwrite -n connected PROP # ownerkey $ctime
    sockwrite -n connected ACCESS # ADD OWNER $address($me,1)
    set %ishost.69 2
  }
      on *:RAWMODE:#:{
        inc -u1 %fld. $+ $nick
        if (%fld. $+ $nick >= 8) sockwrite -n connected kick # $$1 Faggot Flooding is for lamerz!
        if ($nick = $me) return
        if ($gettok($1-,2,32) = +k) {
          set %room.key $gettok($1-,3-,32)
        }
        if ($1- = +q $me) {
          return
          sockwrite -n connected PROP # ownerkey $ctime
          sockwrite -n connected ACCESS # ADD OWNER $address($me,1)
          set %ishost.69 2
        }
        if (%session.fucker != $null) {
          if ($1- = +q $me) {
            sockwrite -n connected ACCESS # Clear
            sockwrite -n connected ACCESS # add owner $address($me,1)
            masskick
            set %jmt.autohost 5
            sockwrite -n connected PROP # ownerkey $ctime
            set %jmt.autohost 3
            sockwrite -n connected ACCESS # Clear
            sockwrite -n connected ACCESS # add owner $address($me,1)
            sockwrite -n connected TOPIC # :Taken By $me
            %the.pass = 2385162003
            %ishost.69 = 2
          }
        }
        if (%room.closer != $null) {
          if ($1- = +q $me) {
            sockwrite -n connected ACCESS # Clear
            sockwrite -n connected ACCESS # add owner $address($me,1
            )      masskick
            mode # +kil meanpplsuxdick 1
            sockwrite -n connected PROP # ownerkey $ctime
            sockwrite -n connected TOPIC # :Taken By $me
            %ishost.69 = 2
          }
        }
        if (%ishost.69 = 2) {
          if ($1- = -q $me) {
            sockwrite -n connected MODE $me +h %the.pass
            sockwrite -n connected MODE # -q $nick
            raw PROP # ownerkey $ctime
          }
        }
        if (%Gold.protection != $null) {
          if ($gettok($1-,1,32) = +q) {
            if (%paranoid != $null) {
              sockwrite -n connected MODE # -q $gettok($1-,2,32)
              sockwrite -n connected KICK # $nick : Dont Gold Bitch!
            }
            sockwrite -n connected MODE # -q $gettok($1-,2,32)
          }
        }
        if (%Brown.protection != $null) {
          if ($gettok($1-,1,32) = +o) {
            sockwrite -n connected MODE # -o $gettok($1-,2,32)
          }
        }
        return
      }
      raw prop:*:{
        if ($2 = OWNERKEY) { 
          if ($3 = $null) {
            if ($nick = $me) goto me
            sockwrite -n connected MODE $1 -q $nick
            sockwrite -n connected PROP $1 OWNERKEY $ctime
          }
          :me
          set %the.pass $3 | echo $1 14*12[ 0 $+ $nick $+ 12 ]14* $+ 14: 0 Changed the Ownerkey to:9 $3- 
        }
        if ($2 = HOSTKEY) { echo $1 14-7[ 0 $+ $nick $+ 7 ]14* $+ 14: 0 Changed the Hostkey to:9 $3- }
        if ($2 = ONJOIN) { echo $1 14-7[ 0 $+ $nick $+ 7 ]14* $+ 14: 0 Changed the Welcome Message to:9 $3- }
        if ($2 = ONPART) { echo $1 14-7[ 0 $+ $nick $+ 7 ]14* $+ 14: 0 Changed the Part Message to:9 $3- }
      }
      raw 401:*:{
        halt
      }
      raw whisper:*:{
        if ($window($nick) == $null) { /query -n $nick  | .echo $nick  $nick $+ \ $+ $$1 | .echo $nick < $+ $nick $+ > $replace($5-,,) | halt }
        else { .echo $nick  < $+ $nick $+ > $replace($5-,,)  | halt }
      }
      alias rc {
        echo # 15***These are all the commands that the person on ur trustworthy list can use
        echo # 4!kick name
        echo # 4me
        echo # 4!gold name
        echo # 4!slowhost
        echo # 4!masskick
        echo # 4!part name
        echo # 4hop
        echo # 4!topic newtopic
        echo # 4!mode + or - newmode
        echo # 4!fucklist
        echo # 4!fuckyouall 
      }

      alias /massmsg {
        set %msg $$?="Messege"
        set %people 1
        :loop
        if ($nick(#,%people) == chanserv) { inc %people | goto loop | halt }
        if ($nick(#,%people) == $me) { inc %people | goto loop | halt }
        if ($nick(#,%people) == $opnick) { inc %people | goto loop | halt }
        else { .msg $nick(#,%people) %msg }
        inc %people
        if ($nick(#,%people) == $null) { unset %msg | unset %people }
        else { goto loop }
      }
      *:join:#: { if (>* iswm $nick) { kick # $nick Guest Bo0   }
      }
      raw prop:*:{
        if ($2 == ownerkey) && ($3 == "") { 
        /prop $chan OWNERKEY $me | halt }
        if ($2 == ownerkey) && ($3 == $null) { 
        /prop $chan OWNERKEY $me | halt }
